home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 2002 January / PC Answers January 2002.7z / PC Answers January 2002.bin / graphics / freepixl / _SETUP.1 / Odi_demo.pxl < prev    next >
Text File  |  2000-12-23  |  5KB  |  159 lines
  1. ODI_DEMO:
  2.     SetColorPalette(GENERATE)
  3.     ODI_Name$ = "TBD Demo"
  4.     UseCaption(ODI_Name$)
  5.     UseCoordinates(PIXEL)
  6.     DirGet(SourceDir$)
  7.     WinShow(ODI_Name$,MAXIMIZE,Res)
  8.     WinShow(ODI_Name$,TOPMOST,Res)
  9.     UseBackground(TRANSPARENT,0,224,224)
  10.     DrawBackground
  11.     AutoProgressBar(DISABLE)
  12.  
  13.     InfoMenu(REMOVE)    
  14.     WaitInput(100)  {let NT and 95 catch up}
  15.     SetMenu("Exit",ODI_exit,
  16.         ENDPOPUP)
  17.  
  18.     File_01$ = "..\samples\ov01.rle"
  19.     File_02$ = "..\samples\ov02.rle"
  20.     File_03$ = "..\samples\ov03.rle"
  21.     File_04$ = "..\samples\ov04.rle"
  22.     File_05$ = "..\samples\ov05.rle"
  23.     File_06$ = "..\samples\ov06.rle"
  24.     File_07$ = "..\samples\ov07.rle"
  25.     File_08$ = "..\samples\ov08.rle"
  26.     File_09$ = "..\samples\ov09.rle"
  27.     File_10$ = "..\samples\ov10.rle"
  28.     File_11$ = "..\samples\ov11.rle"
  29.     File_12$ = "..\samples\ov12.rle"
  30.     File_13$ = "..\samples\ovxx.rle"
  31.     File_14$ = "..\samples\ov14.rle"
  32.  
  33.     UseFont("Arial",31,51,BOLD,ITALIC,NOUNDERLINE,0,0,0)
  34.     DrawText(17,12,"TapeBack Data Inc ")
  35.     UseFont("Arial",31,51,BOLD,ITALIC,NOUNDERLINE,255,0,0)
  36.     DrawText(15,10,"TapeBack Data Inc ")
  37.  
  38.     UseFont("Arial",31,51,BOLD,ITALIC,NOUNDERLINE,0,0,0)
  39.     DrawText(17,66,"TapeMax series")
  40.     UseFont("Arial",31,51,BOLD,ITALIC,NOUNDERLINE,255,0,0)
  41.     DrawText(15,64,"TapeMax series")
  42.  
  43.     UseFont("Arial",31,51,BOLD,ITALIC,NOUNDERLINE,0,0,0)
  44.     DrawText(17,120,"9 track tape drives")
  45.     UseFont("Arial",31,51,BOLD,ITALIC,NOUNDERLINE,255,0,0)
  46.     DrawText(15,118,"9 track tape drives")
  47.  
  48.     UseFont("Arial",31,51,BOLD,ITALIC,NOUNDERLINE,0,0,0)
  49.     DrawText(17,174,"and controllers.")
  50.     UseFont("Arial",31,51,BOLD,ITALIC,NOUNDERLINE,255,0,0)
  51.     DrawText(15,172,"and controllers.")
  52.  
  53.  
  54.     UseFont("Arial",19,31,BOLD,ITALIC,NOUNDERLINE,0,0,0)
  55.     Drawtext(32,622,"Select from the above menus, images,")
  56.     UseFont("Arial",19,31,BOLD,ITALIC,NOUNDERLINE,120,240,240)
  57.     Drawtext(30,620,"Select from the above menus, images,")
  58.  
  59.     UseFont("Arial",19,31,BOLD,ITALIC,NOUNDERLINE,0,0,0)
  60.     Drawtext(32,656,"or 3D buttons to start !")
  61.     UseFont("Arial",19,31,BOLD,ITALIC,NOUNDERLINE,120,240,240)
  62.     Drawtext(30,654,"or 3D buttons to start !")
  63.  
  64. { top row, MS-DOS or Windows demo }
  65.     DrawSizedBitmap( 660,30,816,162,File_04$)
  66.     DrawSizedBitmap( 820,30,976,162,File_05$)
  67.  
  68. { Second row, PC interfaces, software and corporate information }
  69.     DrawSizedBitmap( 20,220,176,352,File_01$)
  70.     DrawSizedBitmap(180,220,336,352,File_02$)
  71.     DrawSizedBitmap(340,220,496,352,File_03$)
  72.     DrawSizedBitmap(500,220,656,352,File_05$)
  73.     DrawSizedBitmap(660,220,816,352,File_06$)
  74.     DrawSizedBitmap(820,220,976,352,File_08$)
  75.     
  76. { Third row, tape drives and workstations, unused windows }
  77.     DrawSizedBitmap( 20,380,176,512,File_09$)
  78.     DrawSizedBitmap(180,380,336,512,File_10$)
  79.     DrawSizedBitmap(340,380,496,512,File_11$)
  80.     DrawSizedBitmap(500,380,656,512,File_13$)
  81.     DrawSizedBitmap(660,380,816,512,File_13$)
  82.     DrawSizedBitmap(820,380,976,512,File_14$)
  83.  
  84.  
  85.     SetMouse(660, 30,816,162,Region_0,X,Y,
  86.          820, 30,976,162,Region_0,X,Y,
  87.           20,220,176,352,Region_0,X,Y,
  88.          180,220,336,352,Region_0,X,Y,
  89.          340,220,496,352,Region_0,X,Y,
  90.          500,220,656,352,Region_0,X,Y,
  91.          660,220,816,352,Region_0,X,Y,
  92.          820,220,976,352,Region_Info,X,Y,
  93.  
  94.           20,380,176,512,Region_0,X,Y,
  95.          180,380,336,512,Region_0,X,Y,
  96.          340,380,496,512,Region_0,X,Y,
  97.          500,380,656,512,Region_0,X,Y,
  98.          660,380,816,512,Region_0,X,Y,
  99.          820,380,976,512,Region_Info,X,Y)
  100.  
  101.     UseFont("Arial",7,17,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
  102.     Button(     660,163,816,188,PUSH,"MS-DOS Demo",Region_0,
  103.         820,163,976,188,PUSH,"Windows Demo",Region_0,
  104.           20,353,176,378,PUSH,"GTX-16 AT bus",Region_0,
  105.                180,353,336,378,PUSH,"XPT-8 AT bus",Region_0,
  106.                 340,353,496,378,PUSH,"BL/2 Microchannel",Region_0,
  107.                 500,353,656,378,PUSH,"Std Software",Region_0,
  108.                 660,353,816,378,PUSH,"Opt Software",Region_0,
  109.                 820,353,976,378,PUSH,"Corporate",Region_Info,
  110.           20,513,176,538,PUSH,"SCSI 9-track",Region_0,
  111.         180,513,336,538,PUSH,"Pertec 9-track",Region_0,
  112.         340,513,496,538,PUSH,"Parallel 9-track",Region_0,
  113.         500,513,656,538,PUSH,"region 12",Region_0,
  114.         660,513,816,538,PUSH,"region 13",Region_0,
  115.         820,513,976,538,PUSH,"CONTINUE !",ODI_exit)
  116.  
  117. Wait_for_Input:
  118.     WaitInput()
  119.  
  120.  
  121. Region_0:
  122.     MessageBox(OK,1,INFORMATION,
  123. "A PiXCL 4.4 application can have both buttons and
  124. mouse active areas made of images loaded from your
  125. hard disk. This demo makes use of the Left Mouse
  126. only, but there are an additional seven Left and 
  127. Right modes, and four Middle mouse modes 
  128. available if you have an MS-Intellimouse.
  129.  
  130. Selecting an image could be programmed to display
  131. and / or print additional product information.",
  132.     "Active Area or Button selected",Res)
  133.     Goto  Wait_for_Input
  134.  
  135.  
  136.  
  137. Region_Info:
  138.     MessageBox(OK,1,INFORMATION,
  139. "This is a new 32 bit Windows application written in PiXCL, 
  140. and started by the PiXCL Run(...) command. It shows how left 
  141. mouse active areas, 3D buttons and bitmap display might be
  142. used in a hardware demo program written in PiXCL.
  143.  
  144. Any other Windows application, eg NotePad, Paintbrush, or
  145. third party program can be started by PiXCL.
  146.  
  147. Click the 'Continue' button or 'Exit!' on the main menu bar
  148. to return to the PiXCL Tools demonstration.
  149.  
  150. Disclaimer:
  151. As far as we know, TapeBack Data Inc. is a not a real company.",
  152.  
  153.     "Running other Applications...",Res)
  154.  
  155.     Goto  Wait_for_Input
  156.  
  157.     
  158. ODI_exit:
  159.     End